home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Spanish Scene 1
/
SpanishScene1.iso
/
spanish pack n°1 by llfb
/
revistas
/
trashcan
/
trashcan01-1.dms
/
trashcan01-1.adf
/
Trashinstalata
< prev
next >
Wrap
Text File
|
1996-06-06
|
5KB
|
151 lines
;***************************************
;* Script de instalación de TRASHCAN#1 *
;* (K) 1996 ¡Tony Stuvo Aky! *
;***************************************
;* Un saludo a todos mis amiguetes del *
;* Amiga *
;***************************************
;* ¡A VER SI NOS ESCRIBÍS ALGO PARA LA *
;* TRASHCAN#2! *
;***************************************
(complete 0)
(set destino "SYS:")
(message
" \n"
" #########*+-- \n"
"#* ## ## \n"
" #*+-## # ## \n"
" ## ## ## ### ### ### ## ### \n"
" #*## ## # ## # ## ## # ## # ## # ## #\n"
" #* ## ## ## # ## # ## # ## ## # ## #\n"
" ### ## #### ### ## # #### #### ## #\n\n"
"<( Ejkrý pá flosmateá er dyjko de synko p-las )>\n\n"
"Traducción: Script para instalar la revista en el\n"
"disco duro."
)
(set destino
(askdir
(prompt "Selecciona el directorio donde quieras\n"
"que se instale la revista.\n")
(default destino)
(help "\n\n"
" ¡Hola Karabola! Pues lo que quiero que hagas es\n"
" simplemente que elijas donde demonios debo meter\n"
" todo el pelote de ficheros de la revista, porque si\n"
" no te los voy a incrustar donde me dé la gana.\n")
)
)
(set destino (tackon destino "TRASHCAN"))
(makedir destino (infos))
(working "Borrándote el disco dur... \n"
" digooo... \n"
" Instalando TRASHCAN#1. \n")
(askdisk (dest "TRASHDISK01_1")
(prompt "\n\n\n"
" ¡Eeeeh! ¿Dónde diablos has puesto el disco 1?\n"
" ¡Ya lo estás volviendo a meter en la unidad!\n")
(help "\n\n\n\n"
" ¡Pareces un p0! ¿Quieres dejar de preguntar \n"
" sandeces y meter el disco de las narices ya? \n"
" ¡KE NO TENGO TODO EL DÍA, COÑO! \n")
(assigns)
)
(copyfiles
(source "TRASHDISK01_1:Trash_01")
(dest destino))
(copyfiles
(source "TRASHDISK01_1:Trashcan.info")
(dest destino))
(copyfiles
(source "TRASHDISK01_1:Trashcan")
(dest destino))
(complete 16)
(copyfiles
(source "TRASHDISK01_1:Trashcan#01_A")
(dest destino))
(complete 33)
(set destino2 (tackon destino "Fuentes"))
(makedir destino2 (infos))
(copyfiles (source "TRASHDISK01_1:Fuentes/SourceInProgress.lzx")
(dest destino2))
(copyfiles (source "TRASHDISK01_1:Fuentes/RomanStartup30.lzx")
(dest destino2))
(copyfiles (source "TRASHDISK01_1:Fuentes/SourceDistortions.lzx")
(dest destino2))
(complete 42)
(copyfiles (source "TRASHDISK01_1:Fuentes/FuenteIntroAmos.lzx")
(dest destino2))
(copyfiles (source "TRASHDISK01_1:Fuentes/FuentePlasmaAmos.lzx")
(dest destino2))
(copyfiles (source "TRASHDISK01_1:Fuentes/FuenteComecocosAmos.lzx")
(dest destino2))
(copyfiles (source "TRASHDISK01_1:IntroTrashcan1")
(dest destino))
(copyfiles
(source "TRASHDISK01_1:Votetool")
(dest destino))
(copyfiles
(source "TRASHDISK01_1:Votetool.info")
(dest destino))
(complete 50)
(askdisk (dest "TRASHDISK01_2")
(prompt "\n\n\n"
"Oye guapo, ¿me puedes meter... el disco 2?")
(help "\n\n\n\n"
" Pero bueno, ¿es que no sabes ni meterlo? Tal\n"
" vez deberías ver más programas de la doctora\n"
" Anchoa esa...\n")
(assigns)
)
(working "Formateando DH0: a bajo niv...\n"
" estooo... \n"
" Instalando TRASHCAN#1. \n")
(copyfiles (source "TRASHDISK01_2:Trashcan#01_B")
(dest destino))
(complete 66)
(copyfiles
(source "TRASHDISK01_2:Trashcan#01_C")
(dest destino))
(complete 83)
(copyfiles
(source "TRASHDISK01_2:Trashcan#01_D")
(dest destino))
(copyfiles
(source "TRASHDISK01_2:Probador")
(dest destino))
(complete 100)
(message "\n\n\n"
" Bufff... ¡Por fin! \n"
"¡Parecía que no se iba a acabar nunca!\n"
" Pero ya está todo dispuesto para \n"
" que puedas disfrutar de tu revista \n"
" favorita. \n"
" ¡KE LA DISPHRUTES! \n"
)